home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
UTILITY
/
DBFSCR20.ARJ
/
CODEBAS3.TEM
< prev
next >
Wrap
Text File
|
1990-11-14
|
2KB
|
45 lines
N | Color type P,D, or N
\s3attribute(<<gfore>> + (<<gback>> * 16)); | CLS color
\s3clear(0); | Clear Screen
\s3attribute(<<fore>> + (<<back>> * 16)); | Box color 1
# | Box color 2
cb_box(<<r1>>,<<c1>>,<<r2>>,<<c2>>, | Draw Box
\CB_DOUBLE); | If Double
\CB_SINGLE); | If Single
\s3attribute(<<fore>> + (<<back>> * 16)); | Say Color 1
# | Say Color 2
\s3(<<r1>>,<<c1>>, "<<var>>"); | Say Text
\s3num(<<r1>>,<<c1>>, &<<var>>, 1); | Say Char
\s3(<<r1>>,<<c1>>, <<var>>); | Say String
\s3(<<r1>>,<<c1>>, <<var>>); | Say Date
\s3int(<<r1>>,<<c1>>, <<var>>, <<width>>); | Say Byte
\s3int(<<r1>>,<<c1>>, <<var>>, <<width>>); | Say Integer
\s3long(<<r1>>,<<c1>>, <<var>>, <<width>>); | Say Long
\s3double(<<r1>>,<<c1>>, <<var>>, <<width>>, <<dec>>); | Say Real
\s3int(<<r1>>,<<c1>>, <<var>>, <<width>>); | Say Logical
# | With Say Picture
# | Without Say Picture
# | With Say Picture Alt
# | Without Say Picture Alt
\g3attribute(<<fore>> + (<<back>> * 16)); | Get Color 1
# | Get Color 2
\g3char(<<r1>>,<<c1>>, &<<var>>); | Get Char
\g3(<<r1>>,<<c1>>, <<var>>); | Get String
\g3date(<<r1>>,<<c1>>, <<var>>); | Get Date
\g3int(<<r1>>,<<c1>>, &<<var>>); | Get Byte
\g3int(<<r1>>,<<c1>>, &<<var>>); | Get Integer
\g3long(<<r1>>,<<c1>>, &<<var>>); | Get Long
\g3double(<<r1>>,<<c1>>, &<<var>>); | Get Real
\g3logical(<<r1>>,<<c1>>, &<<var>>); | Get Logical
\g3picture("<<var>>"); | With Get Picture
# | Without Get Picture
# | With Get Picture Alt
# | Without Get Picture Alt
# | With Range
# | Without Range
\g3prepare(<<var>>); | With PreField
# | Without PreField
\g3valid(<<var>>); | With Valid
# | Without Valid
END-OF-FILE